home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / funct.h < prev    next >
Text File  |  1990-11-11  |  2KB  |  38 lines
  1. C
  2. C  STATEMENT FUNCTIONS
  3. C
  4. C
  5. C  TOTING(OBJ)  = TRUE IF THE OBJ IS BEING CARRIED
  6. C  HERE(OBJ)    = TRUE IF THE OBJ IS AT "LOC" (OR IS BEING CARRIED)
  7. C  AT(OBJ)      = TRUE IF ON EITHER SIDE OF TWO-PLACED OBJECT
  8. C  LIQ(DUMMY)   = OBJECT NUMBER OF LIQUID IN BOTTLE
  9. C  LIQLOC(LOC)  = OBJECT NUMBER OF LIQUID (IF ANY) AT LOC
  10. C  BITSET(L,N)  = TRUE IF COND(L) HAS BET N SET (BIT 0 IS UNITS BIT)
  11. C  FORCED (LOC) = TRUE IF LOC MOVES WITHOUT ASKING FOR INPUT (COND=2)
  12. C  DARK(DUMMY)  = TRUE IF LOCATION "LOC" IS DARK
  13. C  PCT(N)       = TRUE N% OF THE TIME (N INTEGER FROM 0 TO 100)
  14. C
  15. C  WZDARK SAYS WHETHER THE LOC HE'S LEAVING WAS DARK
  16. C  LMWARN SAYS WHETHER HE'S BEEN WARNED ABOUT LAMP GOING DIM
  17. C  CLOSNG SAYS WHETHER IT'S CLOSING TIME YET
  18. C  PANIC SAYS WHETHER HE'S FOUND OUT HE'S TRAPPED IN THE CAVE
  19. C  CLOSED SAYS WHETHER WE'RE ALL THE WAY CLOSED
  20. C  GAVEUP SAYS WHETHER HE EXITED VIA "QUIT"
  21. C  SCORNG INDICATES TO THE SCORE ROUTINE WHETHER WE'RE DOING A "SCORE" COMMAND
  22. C  DEMO IS TRUE IF THIS IS A PRIME-TIME DEMONSTRATION GAME
  23. C  YEA IS RANDOM YES/NO REPLY
  24.  
  25.  
  26.       TOTING(OBJ)=PLACE(OBJ).EQ.-1
  27.       HERE(OBJ)=PLACE(OBJ).EQ.LOC.OR.TOTING(OBJ)
  28.       AT(OBJ)=PLACE(OBJ).EQ.LOC.OR.FIXED(OBJ).EQ.LOC
  29.       LIQ2(PBOTL)=(1-PBOTL)*WATER+(PBOTL/2)*(WATER+OIL)
  30.       LIQ(DUMMY)=LIQ2(MAX0(PROP(BOTTLE),-1-PROP(BOTTLE)))
  31.       LIQLOC(LOC)=LIQ2((MOD(COND(LOC)/2*2,8)-5)*MOD(COND(LOC)/4,2)+1)
  32.       BITSET(L,N)=(COND(L).AND.SHIFT(1,N)).NE.0
  33.       FORCED(LOC)=COND(LOC).EQ.2
  34.       DARK(DUMMY)=MOD(COND(LOC),2).EQ.0.AND.(PROP(LAMP).EQ.0.OR.
  35.      1            .NOT.HERE(LAMP))
  36.       PCT(N)=RAN(100).LT.N
  37. C
  38.